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MODULE RMORCLEK2( 4 
IDENT ; Be 8008 ’ 


BEGIN 


' 
PITITIIIIILILILILI LLL LLL LLL LITT iT iti iii itiiiiiiiiiiiiiii iii 
'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
iw DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
Hie rt IN ACCORDANCE WITH THE TERMS OF SUCH L i AND WITH THE 


; PRO 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
't TRANSFERRED. 


't THE INFORMATION IN THIS SOFTWARE IS SUBJE 
AND SHOULD NOT BE CONSTRUED AS A COMM 
'® CORPORATION. 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


it 
Le A RRA AA RARAEAAARRAA EAA AAA AAA A AAA AAA AA EARERKAEAARAAEEAAEEE 


CT TO CHANGE WITHOUT NOTICE 
ITMENT BY DIGITAL EQUIPMENT 


ae eneneeenneneeeeeenenennnne 


7 
FACILITY: 

VAX=11 RMS 
ABSTRACT: 


This module contains record locking related routines, specifically 
timeout on record lock support. 


ENVIRONMENT: 
VAX/VMS Operating System, executive mode 


AUTHOR: David Solomon, CREATION DATE: 16-Feb-1983 
MODIFIED BY: 


v03-004 DAS0001 David Solomon 28-F eb-1984 
Use ISAM BUG_CHECK macro for buacheck. Also, remove unnecessary 

code to set and clear PIOSV_INHAST. | 

| 

' 


v03-003 $HZ9002 Stephen H. Zalewski 26-Apr-1983 
Change PSECT attributes for this module. 


ib at 


g 
16-Sep-1984 02:13:17 
iSrseortgee og :18:17 
v03-002 MCNO001 Maria del C. Nasr 
Reorganize Linkages 
v03-001 peers Stephen H. Zalewski 


when Linking we pick up the correct module name. 


et Bliss-32 V 
RMS .SRCIRMORCLCK 


22-Mar-1983 


24-Feb-1983 


hanged name of module from rmOreclck2 to rmOrclck2 so that 


4 
2 


-0- 


.B3 


7 
2 


if 


RM 
vo 


p1986 18:00:51 ERms.SReSRADRCL cxS:852: 


; 67 2 

; o8 : } INCLUDE FILES: 

; 5 1 

oa ma 1 LIBRARY 

; f , : *RMSLIB:RMSINTDEF' 

; 7 5g 1 

. oo 074 1 LIBRARY 

; rg 75 1 *SYSSLIBRARY:STARLET’ 

ER 0076 1 3 

; 77 (1 

. 22 78 1 SWITCHES 

: 80 79 «4 ADDRESSING_MODE( EXTERNAL = GENERAL ? 

ae) Bee 1 : 

; S¢ 3) 1 

; 6 (6S 88 ¢ 1 PSECT 

; 84 085 1 CODE = RMSRMSO(PSECT_ATTR), 

; 85 0084 1 PLIT = RMSRMSO(PSECT_ATTR) 

; 0085 1 : 

3; 6 «687 00 1 

; «688 0087 1! 

; 0088 1 ! MACROS: 

; 0089 1! 

; Wh 0090 1 

; 8 0091 1 MACR ; 
 ¥ ™ 0092 1 R_RLB = ! RLB address register declaration. 
: 94 0093 1 RLB = 3 

:. M0094 1 »R_RLB_STR = ! RLB structure declaration. 
; 0095 1 R_RLB : REF BBLOCK % ‘ 

; «97 M 0096 1 »L_SET_LO MO = ! Linkage to RMSSET_LOCK_TMO. 
; «98 ™ 0097 1 RLSSET_COCK_TMO = 

a. m 0098 1 JSB: 

; 100 m 0099 1 GLOBAL( COMMON_RABREG, RLB = 3 ) 

zs 30 ™ 0100 1 PRESERVE( 1, 2 ) ! RMSLOCK needs R1 and R2. 

3 108 0101 1 B 

; B08 1 H 

; 104 0105 1 

3: 105 Bie 1 LINKAGE 

: 106 105 1 L_SET_LOCK_TMO, 

; 107 B16 1 L_JSB; 

: 108 107 1 

; 109 0108 1! 

s 110 3198 1 ! TABLE OF CONTENTS: 

3 634i 110 1! 

: ig aii} 1 

3; 1 \1¢ 1 FORWARD ROUTINE 

; 6114 0115 1 wf! LOCK _TMO: RLSSET _LOCK_TMO ! Set up timer AST for wait on lock. 
: 19 p18 ! -RMSLOTK_TMO_AST: NOVALOE ! AST routine for lock timeout. 
: 113 116 1 

; «118 17 1! 

3: «119 Hy 1 ! EXTERNAL REFERENCES: 

; 120 119 1! 

3; 121 120 1 

9 § 121 1 EXTERNAL ROUTINE 

5; 1 122 1 RMSCHKAST_ANY: RL$JSB ADDRESSING_MODE( WORD_RELATIVE ) 


ne eee 


Pp 
age ; 
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! Check for ASTs inhibited. 


e3 


9 
1b-se -1984 02:13:17 AX-11 Bliss-32 V4.0-74 
RMSSET_LOCK_TMO 1 ~3007 138% TE ee YAMS SREIRMORCLCKS B32: 
ZSBITL ‘RMSSET_LOCK_TMO’ 
GLOBAL ROUTINE RMSSET_LOCK_TMO: RLSSET_LOCK_TMO = 


— 
~ 
—— 
uw 


PPPS EB BS BS BE EE PAIN Wnororoner) 
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FUNCTIONAL DESCRIPTION: 


UPWN—OO°w 


This routine sets up a timer as a result of a record 
called by RMORECLCK\DO_ENQ if the user specified ROP 


CALLING SEQUENCE: 

ret-status.wic.v = RMSSET_LOCK_TMO() 
FORMAL PARAMETERS: 

NONE 

IMPLICIT INPUTS: 

R3 Address of RLB. 
IMPLICIT OUTPUTS: 

NONE 

ROUTINE VALUE: 

Return status from SSETIMR. 
SIDE EFFECTS: 

A timer AST is declared. 


eck wait. It is 


l 
bits WAT and TMO. 


WN —O OCONAUVLS WN "ODO ONOULS WN —"0O0W 
par a ee er ee ee ee ee er ee er er er ee er er ee er er er er ee ee ee er er ee er er er er er er er et 


AL 
TIMEOUT: VECTORC2, LONG) ! 64-bit de 
e STATUS 


lta time 
!' Holds $SETI 


MR status. 

EXTERNAL REGISTER 
R_RLB_STR ' RLB. 

t+ 

: Convert timeout value from seconds to a 64-bit delta time. 


belo le lela lala lel ela le lala lala lal al alaw lala lolololalolololulololelalolololololalolalololelolalalolola) 


! Details: delta times are negative, hence the upper lLongword is ZXFFFFFFFF. 

! The short cut used to convert the seconds to 100-nanosecond units is 

' acceptable here because the number of 100-nanosecond units one can express 

! in a longword (429 seconds) is greater than the number of 1 ponanosesond units 
: one can express in the numLer of seconds that will fit in a byte ( ). 


DONOULS WN OO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
Loc 


ee ee ee ee ee ee ee ee ed ad ed ed ed od od 


a at a et = = 


Soooooeoo 


oo 
wh — 


IF .RLBCRLBS$B_TMO] NEQU 0 ! If the timeout value is non-zero, 


kK 9 
RMORCLCK2 16-Sep-1984 02:13:17 AX-11 Bliss-32 V4.0-74 P 
Von O00 RMSSET_LOCK_TMO 1ozgeP= 1387 98:45:34 FANS SaPinnoneccks 032; age 3§ 
“ 1 THEN ! th ime. 
¢ § secin then convert to delta time 
1% 185 TIMEOUTCO] = .RLBCRLB$B_TMO] * -10000000; 
: : ; § ' Convert seconds to 100-nanoseconds. 
3 19 j 3 TIMEOUTC1) = -1; ! Upper longword is negative. 
1% BP Pest | tee specie , 
: 194 19¢ BEGIN ; se speciat case zero timeout. 
; 196 194 TIMEOUTLO) = 0; 
: 198 196 TIMEOUTL1) = 0; 
: 386 138 END 
me BB 
: 8 0201 i Setup timer request. 
BB EE 
: 06 P 0204 2 STATUS = SSETIMR( ' value of routine is $SETIMR status. 
; 20 P 0205 DAYTIM = TIMEOUT ' Address of 64-bit delta time. 
3 208 P 06 ,ASTADR = RMSLOCK_TMO_AST 
: 209 P 8 ' Address of AST routine for timeout. 
3 10 Pp 0 08 sREQIDT = .RLB i ASTPRM (address of RLB). 
: 21 0210 : 
3 1§ 8 1} IF .STATUS If successful, 
° ; en 
: aE 18 RLBCRLBSV_TIMER_INPROG) = 1; ! set timeout in progress flag. 
; H 1? RETURN .STATUS; ' Return SSETIMR status. 
; $19 OF 3 END; ! End of routine RMSSET_LOCK_TMO 
.TITLE RM RCL CK? 
“IDENT \V04-000\ 
.EXTRN RMSCHKAST_ANY, SYSSSETIMR 
.PSECT RMSRMSO,NOWRT, GBL, PIC,2 
51 DD 00000 RMSSET_LOCK_TMO:: 
SE 0 0 ae oe ; 
OA ‘ 8 0 isi 10¢RLB) : 0181 
50 QA AS OA A mOVZBL JOcRLB) RO + 0185 
6E FF676980 BF C5 MULL3 #-10000000, RO, TIMEOUT ; 
04 AE 1 CF 1 MNEGL #1, TIMEQUT+4 : 188 
2 1A BRB : 0181 
$f 7C OOO01C 1$: CLRQ TIMEOUT : 0194 
D If 2$ PUSHL RL : 0209 
0000v CF 9F 0002 PUSHAB RMSLOCK_TMO_AST : 


--—- ee" 


9 
iba OB:13:17  YAN=11 OL isg-82 4.05742 
TIMEOUT 

RL SP 
CALLS a anus 


¢ 
BISB rata 
3$: ADDL Ay 

P eAcRI> 


RMORCLCK2 
voe-000 RMSSET_LOCK_TMO 


000000006 be 
04 


08 


oS == 
DWoov 
->-c 
@ a 
. 


82 


oOoouj”mna> 
~mo-oLfmmn 
om 
ow 
oOoCooooooo 


Coooooooo 
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; Routine Size: 61 bytes, Routine Base: RMSRMSO + 0000 


Se , 


m 9 
RMORCLCK2 16-Sep-1984 02:13:17 AX=11 Bliss-32 V4.0-74 
vO4~000 RMSLOCK_TMO_AST 127388-1 $be 93:49:44 RMS. SRC AMORCLCK2-B3271 
ZSBITL *RMSLOCK_TMO_AST' 


T 
GLOBAL ROUTINE RMSLOCK_TMO_AST( RLB: REF BBLOCK ): NOVALUE = 


—h 


e+ 
' 
FUNCTIONAL DESCRIPTION: 


This is the AST routine that fires when the timer for a lock 
request expires. It is declared by a SSETIMR in RMSSET_LOCK_TMO. 


CALLING SEQUENCE: 

ret-status.wic.v = RMSLOCK_TMO_AST( astprm.rlu.v ) 
FORMAL PARAMETERS: 

ASTPRM RLB address. 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

NONE 
SIDE EFFECTS: 

Lock request is dequeued. 


— 
pee fo fofofolololololoiolto) 
MIMITURIFUTRoToTPoTfororonr 

WA WINN nonorornoron *rorornouns 2] 


www 
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BEGIN 


BUILTIN 
TESTBITSC 


PIPIPOPIPIPIPIPIPININININININIPININUNIPOPUNONIPONNOPonofony 
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-—O0Oon 


14 
: Validate ASTPRM (RLB structure). 


'e* should we probe RLB? 


S A SE RR Ry oe re 2 Sat tt a S 
MEUM SO OONAUE WN (OOO NG NEW O OONAUES WN S| CO OONAOUS UN —OO0O 


SLSGRERS 


'e should we check RLB BID/BLN? 
4 foes -RLBCRLB$B_BID) NEQU RLBSC_BID ) OR ( .RLBCRLB$B_BLN) NEQU RLBSK_BLN/4 ) 
4 6 BUG_CHECK; 


i+ 

! Check if ASTs should be inhibited; if so, requeue this AST and do a RET 
ce-e, tee rcutine won't return). If ASTs are not inhibited, simply RSB 
a . 


PROPORORGROPONOPONO ARMOPIPOPOPIPONIPONINUDY) 2 2 tt 0 


SOOOOSOOSOOOCOOOOOSOOOOSOOOOOOSOSOSOSOOOOOOOOOOCOOOOOoOOoOO 
PROPOPIPOPUPININPINININPYPI NPN PNoNony 

NNO 

Fwn-0 0 


R? 
v( 


#3 


SISLSS PR TSSE NSE SSS Se 


N A 
16-Sep-1984 7 AX-11 Bliss-32 V4.0-74 v 
RMSLOCK_TMO_AST 14-Sep et 7 ¢: 43: if RMS .SRC RMORCLCK2.B32; ee 
75 RMSCHKAST_ANY(); ! Check PIOSV_INHAST. 


7 '¢ 
7 i If the SENQ hasn't completed, then clear the timer in progress flag and 
7 ; dequeue (cancel) the lock request. 


If the timer fired immediately after the SENQ way tt but before the 
i Loner could be cancelled, then sinply return; we have nothing to do. 


of TESTBITSC( RLBCRLBSV_TIMER_ INPROG] ) ! if the SENQ hasn't completed, 
THEN BEGIN i then dequeue the lock request. 


LOCAL 
STATUS 


STATUS = $DEQ( LKID = .RLBCRLBSL -LOCK_ 1D] ); 
! “Dequeue (cancel) the request. 


WO OONAUE WN “OOOO lfwuno 


SOOCCCOSOOCOCSCSCOOOCOCOOCOOOOOOOOO OOOO OOOoOoOO 


'¢ 
; i The only ym hy failure status from $DEQ should be SS$_IVLOCKID; 
01 ' this could only happen if the timer fired immediately after the $ENQ 
4 i com plete d, but before the RLBSV_TIMER_INPROG bit could be cleared by 
0 rout! ne RMORECLCK\DO_ENQ. 
‘Ea 
$09 3 4 IF ( NOT .STATUS ) AND ( .STATUS NEQ SS$_IVLOCKID ) 
07 3 4 If“the $DEQ failed er Bree: than 
308 305 THEN an invalid Lock id, 
$10 306 BUG_CHECK; i bugcheck. 
10 307 
$1 308 § END; 
\¢ 309 
31 310 1 END; ! End of routine RMSLOCK_TMO_AST 
-EXTRN RMSBUG3, SYSSDEQ 
OFFC 00000 ENTRY pees OFK TMO_AST, Save R2,R3,R4,R5,R6,R7,R8,- 
53 soto 00 9 00 002 MOVAB RnéBUG$, 
2 g MOVL 
OE 000D CMPB ies #14 
12 00011 BNEQ 
07 09 91 Bets CMPB 9(R2), 
02 13 0001 BEQL 2s 
65 1 019 1$: JSB RM$BUG3 
00006 3 Bie 2s: BSBW RRSCHKAST ANY 
1C 04 A2 0 5 1 BBCC #0, 4¢ R2)> 3$ 
— /7C 00 CLRQ -(SP) 
iS D4 CLRL -(SP) 
00000000G 00 - 0 PB 002A CARES Sag Re ss Q 
8 % EB 0031 BLBS STATUS at 


mnoneyske 
v04-000 RMSLOCK_TMO_AST 
00002124 
Routine Size: 64 bytes, Routine Base: 


0311 1 
bai6 1 END 
0315 0 ELUDOM 


Name 
RMSRMSO 


Bytes 


Library 


File 


~-$255$DUA28: CRMS .OBJ JRMSINTDEF .L32; 1 
~8255$DUA28: CSYSLIBJSTARLET.L32;1 


" 0g 


125 NOVEC,NOWRT, 


$i 
- e = 
12=808-138 


RMSRMSO + 0030 


! End of m 


PSECT SUMMARY 


Attributes 


RD , EXE,NOSHR, 


Statistics 


pureed Symbols -oe----- 
Total Loaded Percent 


1484 16 1 
9776 5 0 


COMMAND QUALIFIERS 


4 et oe Bliss-32 VS Oaree 
4 15:00:51 RMS .SRCIRMORCLCK2.B32; 
CMPL —— #8484 

BEQL $ 

JSB RM$BUG3 

RET 


odule RMORCLCK2 


GBL, REL, CON, PIC,ALIGN(2) 
Pages Processing 
Mapped Time 

83 00:00.3 
581 00:02.4 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RMORCLCK2/0BJ=OBJ$:RMORCLCK2 MSRC$:RMORCLCK2/UPDATE=(ENH$:RMORCLCK2) 


Size: 

Run Time: 

Elapsed Time: 

Lines/CPU Min: $ 

Lexemes/CPU-Min: 11 
ry Used: 51 pages 

Compilation Complete 


125 code + 0 data bytes 
00: 


RA 


PR tie a CORPORATION 


GI 
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